home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 25 / CU Amiga Magazine's Super CD-ROM 25 (1998)(EMAP Images)(GB)(Track 1 of 2)[!][issue 1998-08].iso / CUCD / Programming / GMS / Install_English < prev    next >
Encoding:
Text File  |  1998-05-16  |  4.2 KB  |  150 lines
  1. ; $VER: GMS V1.0 Installer 27.2.98
  2. ; (Users archive)
  3. ; Written by Michael Praschl
  4.  
  5. (complete 0)
  6.  
  7. ;*** Strings festlegen ***
  8. (set #already-installed-text
  9.   (cat "A version of GMS is already installed on your system.\n"
  10.        "The files in GMS: have to be deleted,\n"
  11.        "but you can back them up if you want to.\n\n"
  12.        "If you have your projects stored in GMS:,\n"
  13.        "We suggest you backup the files!"
  14.   )
  15. )
  16.  
  17. (set #copy-gms-help
  18.   (cat "GMS will now be installed. All files will be copied to the directory "
  19.        "you selected, including libraries and fonts, so it's very easy to uninstall GMS!"
  20.   )
  21. )
  22.  
  23. (set #startup-text
  24.   (cat "The assign GMS: will now be added to s:user-startup\n"
  25.        "This assign is necessary for all GMS programms!"
  26.   )
  27. )
  28.  
  29. (set #select-text "Select Yes or No")
  30. (set #backup "Yes, backup")
  31. (set #dont-backup "Don't backup")
  32. (set #where-backup "Where should the files be backed up to?\n(A drawer called GMSBackup will be created.)")
  33. (set #wherebackup-help "You can set the directory, where the files in GMS: shall be copied to before GMS: is deleted.")
  34. (set #delete "This will delete all files from GMS:")
  35. (set #addassign "Adding the assigns to s:user-startup")
  36. (set #whereinst "Where should the Games Master System be installed?\n(A drawer called GMS will be created.)")
  37. (set #whereinst-help "You can select a directory for the GMS files to be copied to.")
  38. (set #demos-text "Do you want to install the demos?")
  39. (set #demos-help "The Demos are not needed by GMS and only show the features. Many of them are very nice, so INSTALL THEM!!!")
  40.  
  41. (welcome "Welcome to the installation of " @app-name)
  42.  
  43. ;***
  44. (procedure P_CopyFiles
  45.   (if (= (askbool (prompt #demos-text) (help #demos-help)) 1)
  46.     ( ;then
  47.       (copyfiles (dest "GMS:") (source "") (choices "Demos"))
  48.     )
  49.   )
  50.  
  51.   (copyfiles (dest "GMS:") (source "")
  52.     (choices "Utils" "System" "Scripts" "Prefs" "libs" "Games" "Fonts" "C")
  53.   )
  54. ;  (copyfiles (dest "GMS:") (source "Copyright.txt"))
  55.   (copyfiles (dest "GMS:") (source "Demos.info"))
  56.   (copyfiles (dest "GMS:") (source "Games.info"))
  57.   (copyfiles (dest "GMS:") (source "IMPORTANT.TXT"))
  58.   (copyfiles (dest "GMS:") (source "IMPORTANT.TXT.info"))
  59.   (copyfiles (dest "GMS:") (source "README.TXT"))
  60.   (copyfiles (dest "GMS:") (source "README.TXT.info"))
  61.   (copyfiles (dest "GMS:") (source "REGISTER.TXT"))
  62.   (copyfiles (dest "GMS:") (source "REGISTER.TXT.info"))
  63.   (copyfiles (dest "GMS:") (source "Utils.info"))
  64. )
  65.  
  66. ;***
  67. (if (= (exists "GMS:" (noreq)) 2)
  68.   ( ; then
  69.     (set #dest-dir "GMS:")
  70.     (if (= (askbool (prompt #already-installed-text)
  71.              (help #select-text)
  72.              (default 1)
  73.              (choices #Backup #Dont-backup)) 1 )
  74.       ( ; then
  75.         (set #backup-dir
  76.           (tackon
  77.             (askdir
  78.               (prompt #where-backup)
  79.               (help #wherebackup-help)
  80.               (default "Work:")
  81.               (disk)
  82.             ) "GMSBackup"
  83.           )
  84.         )
  85.         (makedir #backup-dir)
  86.         (copyfiles
  87.           (source "GMS:")
  88.           (dest #backup-dir)
  89.           (all)
  90.           (optional force)
  91.         )
  92.         (complete 25)
  93.       )
  94.     )
  95.     (run "c:delete GMS:#? all force noreq" (prompt #delete)
  96.       (help "!")
  97.       (confirm))
  98.     (complete 50)
  99.  
  100.     (if (= (askbool (prompt #copy-gms-help)
  101.              (help #select-text)
  102.              (default 1)) 1 )
  103.       ( ; then
  104.         (P_CopyFiles)
  105.         (complete 75)
  106.       )
  107.     )
  108.     (set #maindir "GMS:")
  109.     (startup "GMS"
  110.       (prompt #addassign)
  111.       (help #addassign)
  112.       (command (cat "Assign GMS: " #maindir))
  113.       (command "\nAssign C: GMS:c ADD")
  114.     )
  115.   ) ( ;else
  116.  
  117.     (set #maindir
  118.       (tackon
  119.         (askdir
  120.           (prompt #whereinst)
  121.           (help #whereinst-help)
  122.           (default "Work:")
  123.           (disk)
  124.         ) "GMS"
  125.       )
  126.     )
  127.     (makedir #maindir)
  128.     (makeassign "GMS" #maindir)
  129.     (if (= (askbool (prompt #copy-gms-help)
  130.              (help #select-text)
  131.              (default 1)) 1 )
  132.       ( ; then
  133.         (P_CopyFiles)
  134.         (complete 50)
  135.       )
  136.     )
  137.     (startup "GMS"
  138.       (prompt #addassign)
  139.       (help #addassign)
  140.       (command (cat "Assign GMS: " #maindir))
  141.       (command "\nAssign C: GMS:c ADD")
  142.     )
  143.   )
  144. )
  145.  
  146. (complete 100)
  147.  
  148. (set @default-dest #maindir)
  149.  
  150.